home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aaf.d64 / func.blocks'free < prev    next >
Text File  |  2007-02-28  |  589b  |  23 lines
  1. 0010 //
  2. 0020 // BY ╩ACK ┬ALDRIDGE
  3. 0030 ╞╒╬├ BLOCKS'FREE ├╠╧╙┼─
  4. 0040   ─╔═ DUMMY$ ╧╞ 1
  5. 0050   UNIT':=╓┴╠(╒╬╔╘$(:╠┼╬(╒╬╔╘$)-1))
  6. 0060   DRIVE:=UNIT' ═╧─ 2
  7. 0070   UNIT':=(UNIT' ─╔╓ 2)+8
  8. 0080   ╘╥┴╨ 
  9. 0090     ═╧╒╬╘
  10. 0100     ╧╨┼╬ ╞╔╠┼ 79,"U"+╙╘╥$(UNIT')+":$"+╙╘╥$(DRIVE)+"/S1/T+/D-"
  11. 0110     DUMMY$:=╟┼╘$(79,2); BLOCKS#:=0
  12. 0120     ╞╧╥ X#:=1 ╘╧ 35 ─╧
  13. 0130       SECTORS:=╧╥─(╟┼╘$(79,4))
  14. 0140       ╔╞ X#<>18 ╘╚┼╬ BLOCKS#:+SECTORS
  15. 0150     ┼╬─╞╧╥ X#
  16. 0160     ├╠╧╙┼ ╞╔╠┼ 79
  17. 0170     ╥┼╘╒╥╬ BLOCKS#
  18. 0180   ╚┴╬─╠┼╥ 
  19. 0190     ├╠╧╙┼ ╞╔╠┼ 79
  20. 0200     ╥┼╘╒╥╬ -1
  21. 0210   ┼╬─╘╥┴╨ 
  22. 0220 ┼╬─╞╒╬├ BLOCKS'FREE
  23.